TELSER.MID[NET,MRC]22 - www.SailDart.org

perm filename TELSER.MID[NET,MRC]22 blob sn#635733 filedate 1982-01-17 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00016 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00003 00002	X LOGC INTTTC INTFOP INTMAI INTPTO INTCLK INTQUIT DMLIN ECHARR FCS TBXPND FULTWX XON TLKRNG WRTPRV
C00006 00003	ECHOFF ECHON TYSBLK IMPSET LINCHR XONOFF GAGOFF NTYSTS TERMID CORBEG TERSTR PTINTP NTINTP NTOINP DOQUIT NETCIP RCBINP TRBILP ECHOP SUPGAP WANTBP NODETP NAWLNP LFFLSP TTCHGP MAILP SPYON TTYLIN TPCSAV IDLTIM PTIBUF WHOBUF PDL DPYNAM MAIBOX LOGO COREND
C0001⊂ 00004	TPLTAB TPLMIN WDOTAB WDOIAX EXOPL
C00013 0000%	INTSER INTSR1 CLKSER
C 0016 0000&	TELSER CPYHST 1DIGTP NOTTIP
C0001d@``@β↓T&:|22ε-∧jε&:bα6ε&ta@$(6βββ& βββεπM¬H:4-∩λ∧u	Z⊂S@
@`g"!∪εA!X_→→P__⊂⊂9	JTISER NTISR2LTISR1 P@)e'∃λ~)ε```Hl@``@b`∪!Q∪'$↓!)∪'H`⊂∀
≠↓AAI@∧βββ∧⊂!→00thZH⊂∀J:⊂0C!(lλλ_X⊂___Y∧d⊂f*%!λ'i"iQj⊂#d∪f g DALCHR DELLIN
A00031 00013	DOSR DONTSR
λC0 034 00014	WIHDSR WONTSR¬
C000#5 00 15	LOGM LOGNAM MAISER MAISE2 MAISE3 LOGCH LOGCH1¬
C00037 00 14	OPTMSG RN@MCG SNDMSG MSGLUP SUIQUI ERRDIE SUICID DIEDIE ...LIT SVRRTS ERRTNS ERRHAN ERRIL¬&A⊃M))β∧↓⊃')'%0~¬ε@``hb↓⊂~∩lX4*3X4(1na∧b>≡
∧J:RR$→α&:$20≥α	→e$l→∀∧L@U∀∃	T⊂∧g*⊂d!P$S*(jdU⊂"&f∩dε ECHARRFCS T@XPND FULTUX XOL TLKRNG WRTPBV
~∃Q∪!2*αR⊗2≤*H$*≥*
RRbα∪↔≠Ls'S'}sL4(hQeα↔∂∪%α∂⊗KGC'paαNUl
%!αU+3e↓λπ∪CQ!PSZλ≡7≡.β8[∂∀≤⎇z.Lz→4aQ@εE$Q'""cλ)k ∩SKT,SVRSKD==27		8εAIK→CkYhαβ3'O&+9βO|≠'/AQ$L4hHT2∧Iy5$luIDl]IYskkQ⊃⊂KZ∧4ε}2∧⊂
%↑y8p↔[2⊂39≠q9P7Yα loChεAiS5K←kh4∃∪
≥⊃A∧"22⊗pbB∩IHTs@/),↓⊃.h≤nL8z`
L9Y⎇
↓ C"G∀⊂0hL9Z3M≡~;{N5Hλβ⊗h_<LT≥<q,D_↑(	hαj+i∩FEεE⊗≡Z⊂∨H ↑ZP∂P!≡[λ∨P(≡LYFEεB≥P$WSP1t0[72v9CE_NETWRK↓aCGW¬OJAkMKf@`0bPd@!a←iK9iSCY1rR
∃1∨∂εzth∩∩∩mMP∨I¬#↔K↔Lsπ1αJz5βK.≠?K⊂hP4)M∧kπ∂KzβS :∞8Vv"⊂¬$,IhU"ε=x-\9Yβ!! ¬""Q$g"P∃"f!fQ⊂!fb∪)jεEλ'j`∀STR @7¬'π∪4<,Cπ≠⊃→'(BαP4)>hh!α&∃αMα∞l!12∞l"2NPhQ↓α⊗⎇2⊗%α≤j⊂$$∧¬¬-9	"¬αβ∪Q*Iprβ!∧∃⊃4IY3C"D
∃0	d∩⊂(⊗'⊃h∧SND
TERMIN

0⊗AMβ∪_AMsgiK4AE@'α@ε&.m_M≡~;{N1 C"I→β***⊂β==!@```@0X∩α∩lA`∪↔⊗k';πbβ∂#πv;∀4)→e$4zπSkβFεββαβα!⊃,¬P(∃,P1`,ear @=kiakPAEkMα3↔H∀TJ2R6IuuAβ!AAAb`$$¬Zβ';S-∪CGC β∪ ?$	TLDλgε@{(∪	xr3C!	3U∀
Io/,εε,¬Eα""'P( ∀Y inteprupT
INTAHC-=000"@`XX∩$∩vAGαc?∂-∧K;C↔↔∪WCPhR& 5J~TMβWRββ∪εεHH⊃↔2αG-≤vGα
⊗f2∀	⊗wε↑.'/πDλmd∀52*D_{9↓QQ∪3	→β_
=`h`@@`XX∩$∩vAi∃aP↔πv1β'~β¬α∪∂#π7↔&K∧4(X4D
* ∂'V,εελε⊗∧BDX @∃GQ↑Aα≠?;S⊗{3Mβ>KS!β,εε∂↔-x
aQQPtgW(λλεελF¬λε∧DB]P3*[4∧ c@!CeCGβ#↔Iβ≤∧W"ε]x	Q"U⊂K
⊃Q≡OX_⊂_X∩⊗∧BDX Expand p	CELAi↑Aβ≠Cπ∂,ε0hTh¬3
Jv∂/&ελεEα"!↔h≠[d8z≠aQT∧'g∂↑P⊂⊂__⊂⊂02,,			; pAper @QCaJA5←AJ~))→.∀r≥uUβ↓AAAλ¬B`H⊃↔2¬$→I6NvqQ%=∃J
%#@-(λ→__⊂⊂				; enables writing log
λ;ECHOFF E@π⊃>p∧¬%M8)DZ∧α34
85λ∪	→β!d)λ, ∂NOF@A∂¬∂⊂≡~2α2Rf≥"MαR-∩6&⊃∧~0≥∀(Xr¬$X∧TjJH⊂λ*∩dεTP L¬)&u"Aα~αItL@Tλ⊃	@hjdjλ'"`∀CMP BC@¬∪≥↓)%¬∪9 Aπ!≠ AπU!≡εααP≤h¬⊂J∧⊃SqλZα(⊂'⊃i`NP LFFLSP @)Q∞"≡αα6ε&e↓αNBβ→t`$∃∃⊗)I3H∃
λtp5D	1∪∃	→αP ⊂TIBUF Tπ⊃>∃*→αB$aα%λε3H→αP&`Ra'l LOGO @π⊂≡J,r⊂$!Q%≥0U∃	D⊃_=∀_8	2XF@

8εA))e'(Aα≠?7\≥f"π⎇xLNc"C!λαad'Q ε0∀∩@`bh`@XX@"5*2R↑@¬⊂HKαh⊂∩Xt7P /d¬L
∃∃∞"y`∞A⊗λ@~_⊂,(FULTWX)↓	; echo on

TYS@LC-tXλ$∧HI`~ε≥m↔&N≥Dε≡}]\⊗v'4λ

trate LF after CR
GAGOFF:	024400,,			; gag off
NTYSTS==*-TYSBLK

; Terminal Location stping

TERMID:	'TERMID

CORB@∞ztX∩∩∩$rAgi¬ehA←_AS]SQSCYSiKHAG=eJAgQ←eCO∀~∀~∃Q%')Ht∪¬→=π⊗@b@\∩∩∩lAG←]M←YJA1←GCi%←\AgQeS]N4∀~∀v↓∪]iKIekah↓MQCOL~∀~∃A)∪≥)@t∪¬→=π⊗@b$∩∩∩vZb@2↓!)∩A%]iKeIkah~)≥)∪≥Q t∪¬1∨π⊗@D∩∩∩∩l@Zb@dA≥)∩↓S]iKIekah4∃≥)∨%≥ t∪	→∨π⊗b∩α∩$v@Zb2A∪≥LAS]i∃eekaP~∃	∨E+∪(t%¬→∨π,@b∩∩$∩v@ZD@2A#U∪(AS9iKeeUah~∀4∀vA!I←i←G=XAMY¬Of~∀4∃≥)
≠ t∪	→∨π⊗b∩α∩$v@Zb2A∪βAS\AAe←Oe∃gf~∀4∃∪%!LA∨!(0Y/∪→0A/∨≥PA	≡A⊃∨≥(~(A∨!(¬ t∪¬1∨π⊗@D∩∩∩∩l@Zb@dA←ai%←\ASαqβ↔≠6+∂P4U"⊗J6Lp4(∀U∩∞
&u↓h&
dz∞-↓λH$$%Z↓5EJβK↔∂.K[';:β';∂∪d4*%∩
&:βP&
2|~-↓DHH$%mαiEE¬#Kπ;≡k'SSNs≥βNsπKdhR⊗∞"⎇↓h&
dz∞-↓λH$$%Z↓5EJβK↔7␈#∃β↔≡C?';8h*NV∧:εAhL∩2>∞Z↓D$∧HIm↓5
eβO/βCK↔∨≠';≥∧:∧4(hQmα?&C↔Iβ6cπ∂LhP4*↑rR
APJ
2>≤Y↓D$HH%m↓k	eβ>;Qβ&yβ∃εK9βNsπKeεk?∪∀hR:>∩-"Ah&∀b6∞-βλ$$$KY↓5E↓Iβ∪?r;Qβ∪/#π∂!π##'Mε;Wd4Tr⊗↑∩u↓h&
dz∞-↓λH$$%Z↓5EJβOSπ↔#';≥εs↔←3Ns∀4*d2~2NβP&
2|~-↓DHH$%mαiE@∀
¬$M8Z"?~	Hbε6NXm∧~{≥,Ly#"JJ⊂r⊃jπB0S	@aaP_BD@D]H⊗XPH1t0w→ts3@≥2y6t[0v⊂*≡x2FE∪`df(∞∧a&'PeP_DBD@]PXPP∪`df⊂_y94{→r⊂∀3≤5vP&∪cdg)
SPYON2	BLOCK 1	↓		9 %! → log text
¬
; Other storage
	
TTYLAN~	BLOCK 1				3 Line numbeR kf PTY
TPCSAV:	BLOCK 1				; pπCmJ↓←LA∃=¬)!ε4⊃∪	→Q∪∩`(L∩2>∞X↓D$⊃⊃∪@4~9≠T≥~;,T~;@ε⊗αVyrXww2⊂≥w0z9CE("$P*c≥∧PαLOCK 30.			0⊗AA)2ASαsCWQ∧∧'.6lZ hUy	t∃,e!∀)∪prdεLB"!↔h≥z
⎇~;Y$]9QL↑A"TλI∞B0IIprh
λ⊂ε&"S∧DD]H9z0qZFE"(⊗g fMαa&'aRP→_∧BD]P9→z:y7λ167qZP37iλ**,iQjεE&Pda'l∞∧a&'PeP~_αDD]P∪`df⊂_7|εE∪'cg]αa&'aRP→DDBD]P6≠sP7z]8:z⊂_:s3"\⊂42pY2yεEβE!gi⊃dεD==,-1				; End of ini@QSCYSiKHAgQ←eCO∀~∀_w)!1)β∧AQ!→∪8A/	∨Qβ∧A<"6 ,≠∧-Dβt∪↓Q@εE)Ua**&λ*"f'⊃h⊂8 2otocOl co@⊃Kf~∀4⊃∩⊗4J2*λ¬∀λP!gb⊃F@
 CMDE
 IRPS NAME,,CODE
∀@↓0∞εN≤Ja>:j∃.thQ↓:&≥">@4RαRεJlJ0⊂@ U⊃*)23C!↓α@
; Prgdocol @
←AKf4∀⊂∀
%α2Rε⊂π hRλ¬∀λP)b↑OY[⊂∧BD@]@≤βubneeotiAtign↓K]H~(A)!ε↓→∨ ZβiMIDHH$%M∧¬fzN|∧β!∧∃∀⊂dλ⊂εV@=322				0⊗Aα#πS¬∧¬V∂⊗αc"D
∀⊂hλ)%VNLXε3				0⊗A	eKCV↓P∂/⊃Q"¬%λ4∧MβUR3# ⊃⊃⊂KZ
_NL<X	:\8⊂8)≠qryiCE⊂ ∀P@εAβ≡tzflJ$∩∩%Zβπ∨α.Bε←↑Nπ/ Q$¬%∧4λ∃M#WPfFB""!↔h_<LT≤∧wjH:42`2e?
 TPC EC==#64ε∩$HI`~ε↑,↔∞(_p∀_y0qj→y
 TPC EL=0~F\`∩α∩$p
β↔⊗G*
H
-l!"H
J⊂h⊃h↔-,mf⊃ ""'P3wP_t2prβE⊂ ∀PA SB≥=372			∩v↓`∂Wv+↔?SNS'∨ph!αR∧→α↑→ICkk4r0HH⊃↔2π≡]lF/∩∞⎇⊗f@λ→≠aQH⊂
(⊂β WONT=0~F\h∩α∩$p
βO,¬f&/$λ
m⎇I⎇⊂→5FE⊂∃(!P"∪↑↑P∪75	∩∩$p
βK,≠↔'[,ε"ε∂=<V"πMtε&XQ$¬%∧4λD|UGP∂&6β[∧DBDYP 2ecei@YKdA[UghA]=hAI↑4⊂A)!A∪βεtzfnn$∩∩%Xβ';S,ε'π⊗↑@λ≡h_p↔[vpw2βE*(&∪dg⊗NM__⊗@<,-TPLTAB>
λ	∀v↓(∞&2bzP≤@pπ ∀=	≡@>$z0∃"8lL<c"AQUq∪jH0NC!⊂*(!H*)'!∩dε0~Zβ$$⊃↔2ππ,≥g∞n≤¬⊂_4p∞ary
∀AQ!εA
⊃≡zzβλ$$⊃↔2ε.=
phRλ¬∀λP)!h∂↑Y∧DBDX @IKG←]9KGh~(A)!ε↓'#!∀:¬uU_H$$↔4π><≤⊂→→yyP#PF@
 TPC NAMS=-∀		∩∩lAUKO=iSCi∀ACaaβ∪?ad	V/∨<≤v*π=_∞LQ ¬⊂*∀!P ∪TAPU@&tz`∀⊃⊃⊂KZ∞8
≡≥<h
}≥~0↔[∧@
 TPC DIMH%⊗βiu@0α""!↔h≥~-]8π3@ mark
λ TPC RC@)∀zzn∩$∩∩`-∧ε&.nβ⎇→${{]∞
βv6 %d tbans'e@
QV~∀↓)!εA9β↔1iiE@$HH%mβv+⊂≡␈M_↔&*
x
.N≥=⊂≠4p∞e widdh
 @)A
αh→uβ@,εP@1		∩∩lAUKO=iSCI∀AaCO∀AgSU∀~∀A%α~∧βP3hi"≡@=12∩∩$∩vA]∃H∂?SLS∃β|εW'π↑@λλi
 TPC NAK@@)Lzzbf$∩∩αv↓]KO←β#'πS*β?WS∧εW"ε
xM∨Y{]≥λ≥_,$≤⎇≠n∞c"H
J⊂h∪H→p∧""∂↑XZ∧BD@	;nego@QSCiJ↓←kiAβ+QαααAPB¬Jλ2∧t→xd4#WP&Q ∧DDNβ ne@≥←iSCQJA←KQachA→∩∧AQ!εA≥¬≠ ~R≠iuEXHH$%@4	f.>}M⊗∂&T	w/'∞ZBπ⊗↑.FN≡≥Dπ&∞$λnMβx9FB⊂*(!H' gk∃ ≡↑@14ε∩$HI`~εlX	m}~8=T≠x
`4pphAY(~)¬"B
αt
6 $hCSk∪↓⊃⊂HKαh⊂↔→qwz4Xz2P /utpu@PA→~(A)!ε↓1)βM
uUα !⊃ ∧D]H*7s !p∧@∨M∧∧7,=~0↔≠zyP )dea @=H	β↔G#↔;∪,∧B∧
89∀HhαH∃
λh∪∪hyβj`∀tzdd∩$∩∩`-∧¬F}{y0~λ4πption~∀↓)!εA	~z`5⊂ε0HHα".d↑8
2H4¬ac@I↑~)¬"B
α$*Q`+β,@~αD@		; da`)∧AK@;'∪eβS,ε&nNβX;∧
βx:4[w
 TPC SUPDUP==25			∩vααN@-λJUααα≠[nD∃⊃3	@ ¬T) pr`∨@&{∂?0hQαRB~αN∩≡%αQ`+β(	6		∩∩lA'+∧"VAβ|εW'π↑@λ
}≥~0↔[∧¬∃/⊃_∞ ,≠∂'Uβ⊗`↔DLπ ∩ε⊂¬SλhαC"H[⊂πh&∂↑YP↔\∩∩$KYβ↔c&+;∪↔ ∧ε␈πM_mnh
→n2pr i`	KBααC ?>LVbHβ"@↓Gp∧g*∀bi⊂$SαTSBDAπ2]~⊗HQ!P@*u0U
Iλ∩3NL<X	:\8∧ s@∃`@6↑!P@! ¬≥@λ$p∞tep¬ekaβ#@~ε⎇mGJπ<X
∧Y_9nP;t4Xt⊂:4→P6pt[⊂897YβramQP≠|∧[,≥≠≡(
≥H∩3JJeC"GP9z0]2TP ,ooks at ≤~(~∃∪≥Q'$t%'↔∪!8A0@2Tzα∞~HH$%M∧;↔QβL¬g&/,∧].∞λ≤⎇≡≥<c!!(∩TJ:λ
β¬@⊗XFEαj NE X$(IL¬)))R∩$KYβC↔⊗k';πbβSgC*β∂#πv;∀4(JαN⊗R|iαRR≤B≡@4PJR2~*αa1"LrRBRzH$$¬ZαBReεK;P4PIαN⊗$z5αB$J2R@hP&RJt)αa∩LrRFVM $$¬ZαF@,~DεNwGqPPJλ8U$|TλDm
Y~@hP~IDd(∩⊗
$g"#∪h⊂DDB]P7j]8:z⊂≤αese@P}~∀∩↓∃%'(αα`_LYzd*∧αSpJJ⊂c"A⊃33uHY(⊃∀λ:p5C!!"23JI4rhX.FEαDjk`RjεE∧Bh*idλ(⊗*(⊂i`kεB∧@dg∃&ie@⊗β-1]
		DE@REAK
∩∪A+'⊃∀↓ Y≥Q∪∃&~(∩∪)1π⊂⊗⊃¬Z&ε
∧"6t∀PH&B>∧QαA2hh(&Rdr∃αabB&:R≤b-$$HI`~∧9I2εNnAPPJ	*%≥"λ9D]≤Z!PPMIId*¬¬E∧LuI→eαHα""'∀⊃U∩$
;]β!!(∀q*Is(∪JI3U∀↓Q@5∪	H(⊗β¬	3U∩)Zj""!↔h≤⎇≡≥<h=_;YlQ"B(	*Tu⊃23U	Zrh⊗f!"B!_⊃0THX2c"A⊃2TTjD∀u2(91↔#!!5∪∪HT⊗
	→U∪0)∃"""'∀⊃02)A"B(
85∪s$	023
↓ B5	IQ(⊗¬E⊂3U	→TJ#!!(∪u*Ju∀@_4pr+%jR3J%C"KkQ"B5	ISH⊗¬E⊂3U	→Tj"!⊃.h∩)Zλ∩3J4~;]↓Q@(∩J*uλ∩)j∀t@_CEigTP#"'RdεP
	OU@)M)$A\
N∞&Ry*&:~P4)>hh*&:%~IEHLj>ZNJ↓E!∃λH$%M¬∪↔GW-+∃β'w#=αR
β∪K?jβπ;eπW/\QPPLI~4lM4ε∩`h!Q#Z¬<Z'6N<Tε≡f|=2εNnLW↔↔↑∞@hPQ(4d]8Z#PL→z4<*	_De$→Q⊂HK4'.o∧
⊗&fT∞FNnQQ J∧**5"∧→jE≥∪⊃Q M,iIt≤X⊃⊃⊂KZ
_Ff*∞M⊗n.}↑CJπ]mF}≡1Q LlzhR¬%K→DLPQ!∃¬$xZD`h!~DdtTε∩bEII5∀tu⊃⊂HK4
Dd=→f;xQ!∩∧U*:B∧LjJ5∪λ⊃⊃∪JεM⎇b?"
=⊗fB

⊗jε≤dπ≡z⊃Q M%K→$|⊂Q!∀U,Z	b∧LhJ5∪λQ!∀L@U∪4i4⊗l↔!⊃".h
mh≠;n,(~0↔≥2y9:\:9FEαb"a)⊃`eDDBDYP7]z⊂7sλ4w:2\9:x*λ42{2[∧@
	SET@∨~αα2>∩-"@$$KYβ≠∨⊗;↔Qβ∞∪?WQ∧∧F/&≤9εNvqQ M$β∪SDε+
⊃	Y⊂3B!Q@∧P%∀)j⊂!S%ia1		↓; not A D@~X↓U`↔O β∪'∀hP&6>4*%αz@H$%M∧≠π;∂,¬BεNβy→.⊃"B4
Zr∩H
¬⊃Q5	Xp∧εEαdgk"RP/&DBDYP)Xy3v&λ7wεEαh*ad∩⊂(⊗'⊃j ∂CH
CLKSR1:	MKVEI X,[ASCAZ/AutoLogout
/]
λ	PUSHJ P,SNDMSG
	JRST SUICID
;TELSER CPYHST 1DIGTP NOTTIP
	
SUBTTL Start of prh∂Oe¬Z~∀~))→'∃$tβπ¬∩~∀∪I'(4⊂∪≠∨Y∩@@0`∩(M~⊗BBα*bβαA⊃⊂K←NXMd≠yQD;↑(∞∞Z9K∧∞{h∩IXTQ∞⎇9≠λ∞⎇|Zc!↓33uHT⊗iuλYα)bi↔FA∧iQj ∞AM
∪'∃)5~A
∨%¬≤~∀&lzR¬αβ84`:PQ1eE⊂stH(αcUHWFE∧a∪*⊂!gT"g"εB∧fgk⊃LTSER
∪≠=(
,T	$`8P4∀A⊃ ∧]@≤β`hAβ+AβO,ε'6/$λ
|x9~-⎇A"B(d∧@↔∪9(@l@8Tbj\$∩∩`-∧ε7&∂,¬⊂≤βlogticking c@1←GV~(∪∪∨-∀A7&u"RR∞βI∀`*⊃StI3P
(∃'n$g∃!`K\IH
)∪9%1∪≥Q∪⊂~NdJ0∃$→Z5dLh¬∩)@(.$g∃(jdj↔$g ∀MAIU
	INDELB				; turj o@8AS]i∃aekaQb~∀~(rA'KPAk`AQKeKS9CXAS⊂AM←dαβ';S/∪↔OS.!βOCL+D4(hP&6>4*%αR-∩6&⊂hP&6>4*5α)x%$
!Q hSαh∪
|h≥~
≡h_p↔[72q`4ion

∪∨U)')$↓0∞εN≤Ji>∂|¬fv.>LV"πMtαmhQ!∃¬-9	"¬αIX∃∧E8¬α!⊃,h∪,≡λ~0↔λ47yzλ80q6→FA∧fShεE HOST
	PU@'!∀A Y!'!≥,h$$¬Zβ⊂≡∂D	∧$⊂Q!∩∧≤→⊃⊂HH↔4π∞␈./∩ε∞-}W"ε↑.&␈↔1Q LlzhTJ∧∃Eβ
H⊃⊃∪@4~≠tnD≠X;,Q"B2
)∩(⊂%F

fεβ"B*9r4⊂$⊗mεF
l¬E∃⊃4J:∀W#!(t⊂d∀j≥∧P∩b(!⊂⊂α,X
	ILDB B,A
λ	JUMPN B@π!3⊃M(∩∧∪!→%$A∧Xbα∩$p
βC|K;C↔⊂βS :∞;↔∨&]Pλ
l8εrFB∧fgk⊃P!⊗∀⊂TDDDNβ geT sys@QKZA]¬[J4PJ6.Z*α¬"~≤zε.PHH%mβ∞s⊃αε≥↓βO?≡[↔P4PJεε6pα∩e8~4≤L∃zDMα{Q⊂KZ
ybε
λ¬∩*πc"B$
∀SQ$λ+-f@Y[Z∧BDYP%≥yz⊂(_y0w7Zp]P&XurP9]y2P H*$h⊂≤7y2εB∧P⊂%∀)j⊂'∪h∧TIP
↓MOTAI B,"#
	IDPB B,X
	LSH A,-⊃6.
	IDIVI A,8.			; ports are octal
∪∃U≠!
A∧Xc	∪≥) ~∀%β		∩↓αXD`}Aβ	A∧AαY`~∀c	%∂! @PJε∩∩Jα∩b&∧βz∧α1∀λ∧⊂K⊗↓QSSu
I4
B*
4r∩D
∀q*H3S"!⊃,h∀l↑λ≠⎇.$_;~,≡h≠X-\ εE∧T*id%λ(⊗*g∪d)j∧BDYP6Xx⊂7z]⊂:42H47yzλ:0q6→FE∧gUj)`∀R TERSTR
	MQTSTR [ASCIZ/
/]
;NOFLAK MAINL MAINL0
∀~)'+¬)Q_A∪]%iSCY%uJAi!JAG←9]KGi%←\~∀4∀∪)1π∪λAm∪βεA]∪⊃λA∃β⊃≡A%βεA/%→_A'U!%∂βt~∀∪'∃)∨~A∃π⊃∨ }A'Q∨⊂∃αα:U∧<~↓PPLYzd,Jε&-B"!↔h∪⊂*:⊃∩4h~u⊃4JI31#!↓4⊃1)4⊗β!!4⊃1)4⊗β!!2U3*λ(⊗⊗∪αOFLAK
	ACCTIM A,
	SUB A,X
	TDZE A,1			3 Forgive one da`24⊂∩Aβ⊃	∩Aα0dh\TX`\Tl@\~(L~ε&2*α¬!E*q)YApH$%@4
F␈∨D
vO&
≥bβT
VNw↑LWxQ!∩∧U*:B∧txiDXQ!∀l⎇hY∩¬BK8∃≤≤≠%u∨O>LVjε≡4ε6F≥<WJ@+=x.Lzλ∪n↑λ#"E{#"B*
4r∩D
∀sHI4qc!! Nhλ|=λ⊂⊂H(*,Vλ5rr`0 its nuebep inA

LOFLAK:	PTYGET A
	 JRSTY	MOVEI "Th∩∩v↓≠β∪≥Q≠↔	
4⊂∩∪!∃⊗~∀$∪!,~∀$M~.&B(h($∀
4\Mλ⊂¬Be;8∃≤≤≠%u≥*X→∩αj
8∞.>→; ⊂_2tw3H22q:Yqrr, qse@I`
β;|εBε∞MIw>∞D	vrpQ%umhQ!⊂Jα	Yu (αdP,-`iaRm↔ijK`dP⊗H r6⊂≠2z3w\αk pOp¬`∪M∧¬⊗rπ↑8	%@ε@
/]
∩∪A+'↓∀↓ Y'≥⊃≠'∞~(∩∪∪≥Q≠'εAla24PH&BV≤B)αAd~2>N-⊂4(⊃→%∃≥D
5,L9_Ehh!→¬∃∃)P∧
eJK∀dLa⊃⊂KZNVn∩
_NL<X].∞≤c"A→3uTi∀λ∧ DCEdi∀)P#'ST⊗"aR'g⊂"Pd'c#λ,#g'Q!⊂&$S!d) GAGOFF IMPSET
	 AORM FOO
	TERMIN
	HRROI ECHOFF
	TTYSET
	MOVEI B,[ASCIZ/Hel@1↑~∀←t~∀β!Q/%&n↓α~∀∪5∨%
Al[≥)3M)&XYQ3'¬→-:~∀∪Q)3'P∩∩$KYβSW⊗qα≡ε8∧ε⊗ODλlLA"C!'h⊃R-l9λ∩-m=~8-M>X=
≥{C"AQ@33jIR(∪	@ej&gCE	MOT@~A%	→)∪4∩∩∩v↓S]Si%CYSu∀AY←G,AiS[∃←kh~(∪→>≤X$$∧KYβ/↔,εαπ⊗↑>ε}w<Tε.}|APPM8ZETj	it$
J↓⊂HK4
v@<>(∃
t→→5≤zλ∩M|\h≠M}c"B)*Tu	J∩4q*!"".dz→0m∀≠Y5∞⎇|Z`
≥\≥=↓QA"Nd	8:;D∞≤[yn,9(∪
⎇|β"AQS02)@&≥∧dU`dj∧BDD]P≥ptz dkr An interruPt
αMAINL0:	MOVEI 2				3 Check connection status
	MTAPE NET
	TLLN 1(CLSS\CLSR)		; qefdpπSIJ↓KeO]-KH}~(∩A)→9
@dX!π→'πqπ→'$αH$%m¬∪↔∂↔Lεf*π=_	Wc"B$∧∩TTjD∀u2(91β"A_3tqd
∃⊂rλzα""'P1t0[3tw3H:<p2OFE∧P∩))j TTCSER	
	AOSG NTINDP			; net @%]akh|~∀%∧RJNQ∧rR&N-⊂4(εzN≥α¬"& 5J↓⊂HK4
¬%J
_N∞=∂c!!(∩TJ:λ∀∃	~q4C!!03tht⊃∪t*Y5α"!↔h∀5)~λ≤y,]Oc"A∀∩TTjD∀u2*~2#"A_3tqd	023
↓"".d	023∧<\Z.l9∂c!!(∩TJ:λ∪0)~q4C!!2TTjD∪02)@&∧DDNβ baci to slee@@AM←dαβWL4P1nR$~N⊗I¬~R>B∀qα↑εu"
84Ph*NV∃"R1α&+K7'v1β∂F;∨∃εK;S↔↔∪WCPhP4*R$~N⊗IPJBR≡-"1α∧hP&R∩t)α	1D"62&rH4(%∧RJNQ¬:ε:R∀p$%mπ;π;Q¬#=β*β'9β⊗K;πKJβ7?∪(h(&6⎇2∃α	eYAEM#↓A12∃h4(&%α	α¬eYIIA;↓A12∃h4(εE∩J>%∧⊂4(&%"fN⊗ h(&εt"%α	c	\4(L~ε&∃∧⊃1E@HIeβ'n∨∃βn{∪∃β>;SMε∪';π↔IβS?xh(%α≤
&)α∩aED∀PI↓α*∃~Qα↑rR
8hP&N⊗%R5α↑rR
@hP&N.Mα9αJ≤∩&:@HI`~ε≥`ε⊗Nl≡'Jεmzsxh!∀∧U∃:@∧l→iChαB4hZ⊗S(
(pR3J↓ ¬∧j⊃d∧CMD [IAC DGNT TRNBINU;want out @=H	β' h(&*∃~Qα6J21@hP4)@4
v∞wDλ
-n≠h⊂⊃~w0y<H6sr2CEαE+Pg*!'∞∧ibj∪d¬ GANTBP
	SKIPA @%
↓∪≥ $∩vAS8AES]¬er`<hP%α*∃~Qα6J21@hP&N⊗$z5αJ≤∩&:@hP&R⊗d~6⊃α\Jε
α$yαRJt∩&:ThP&*J≥!α6εLr1@4P1n:αI∃≤-$	e$M: D	U∩4j&(⊂λ*⊗ig"εBεE)jP**&⊂∪2z;w\5P4w≤:z⊂$[:2y9≥x:εEβE'*$Tbi≥∧T*id%λ(⊗'"U$ad∧BD]P3Yz⊂1t_y0qz→y⊂3)≠vP:4→P72j≥wy5FB∧P%)∀j⊂&`Rg&_∧BD]P7→z;wy~β input buffer empty
↓SKIPL IDLTIM
↓ LMCC
	MOVNI 1,LOKTMO
∪≠=)β~@DY∪	→Q∪∩α∩$rAeKMKhAS⊃YJAi%[B
∀%β↔'∞↓→β)π5 ∩∩∩lA∪βε↓S\AaI←OeKMf}~∀$A∃%'PA∪βπM$~∀%∪%!&↓≠!(X1+∪→_↓+↔≥λ↓	≡A	=_
P4PIαε>≤9α>B ∧∃hαB(∧	TTu∧	t⊃⊂TiαE∧U"i&dS∧A∧aPdg⊂$PaDDDNβ ne@Qo←eV↓G←[[¬]H}~(∩A∃%M(A6∪M)>hα2εR≤j@$%Zβ@⊗.\X,,<H⊂~~0z⊂'[2P4`3 coming
		JRST NTISER]
	AOSE NEGLLP			8εAMYβ+O!β≤+∂?;"β#π∪2β?→αta|4(Jα*JN α2R&≥⊃H4(LRV6B*α:R&≤*H$$KYβgπBaβ≠3,ε6Bεn]Fg~
} hP_8∀Lr	i HH⊃↔2∧dn1PPJ	*%≥"	jDM≤Z!PTuI~5∪∪!_4LTdhH⊃⊃∪@4⊂tOaQ@(∩J*uλ∪JI4tD!QB4ri~∪H⊃(9∪tα!⊃.h~,@⊂4w⊂≠7qpvλ6sr2CE∧P)Qj#f@∪##&)T∧DD]H5v:r→rP:7H892{→w:⊂)↑yz2vH2qt7H7s⊂&⊃∪yFEαiedh∪⊂)!a∩g(∧DB]P4sλ77z⊂~w⊂14[0y<P≠wr2VβEP)Qj#f@∪"kf'∀∧DD]H6p|q→P36:\t⊂0wλ&#εE∪*$ii]∧ieRh#bP∪*'dg∀∧DD]H9z4v≠⊂4w⊂→6:yt~s<P&[r2P∨
	 JRST NTISER			3 too bad
	MORE B,
α	SKIPN Tπβ≥)	 ∩∩∩lASLA9←hA	¬iC@7,∧FN

z"εN\≤v*bmG/≡∧ε#βα-↔ H!∀∧tI∀∧∩c⊗vphU
K∃≤tG!∃¬%z&∃~∧⊃⊃⊂KZ∞8Vv"9ε∂⊗≤>F/∩∞Mr¬¬K⊃PPJ	*%≥"1∃¬-9	"βuId-$α3Ta⊃.h_N\YY4D];⊂⊗⊂9rw→⊂$g)CEDj⊃d∧CMD [IAC AO IAC DM]	3 tell user To flush output
		MOTAI ↑G		; bell
		PUSHJ 17(NETOC@
		PUSHJ 1\Y≥)M≥λ∩∩lA←kiAkhASP~∀α∪)%'(A9)∪'I:~∀∪M↔∪!
↓'!3∨8~∀αAA+'⊃∀↓ Y→∨≥π⊂∩∩$rAeK
←eHA
QCdA%\@`~(∪∃%'PA≥)∪M$∩∩$rAiedAM←d↓[←eJ↓kgKd↓GQCE¬GiKeL~∀_w!)%'$AA)∪'$@~∀~∃M+¬))0A!)2↓S]akPAS]i∃eekaP~∀~∃A)∪'Ht∪≠∨Y
A∧YlhhbbP`XY!Q∪¬+
t~∀∪!Q%	&A∧∩∩∩∩lAeKC⊂AEkM→KdAMI←ZA!Q2~∀∪%→	∧Aλ~∀β∃U≠!
Al∪!+'!∀A Y9)'≥⊂∩∩vA	kMMKHAK[aQrPAM=eGJA=kiakPA←kh4∀∩∪∃I'(A≠¬∪≥_at~∀∪'-∪!_A%	→)∪4~∀αA1∨π⊗~)!)∪'H`t∪≠=-≥∩@DY→∨↔Q≠≡~∀%≠∨-4@bY∪⊃→)∪~$∩∩vAIKgKh↓SIYJ↓iS[J4∀∪β≥⊃∩@fn\∩∩∩v↓MYkg AMk]9r@h`@AESH4∀∪'↔%!
A'A3∨≤~(∩A!+M⊃∀A 1→∨∂π ∩∩∩v↓eKG←IHAGQ¬dAS\`~(L~ε&9¬r($$HImα2ds quoting
∩AA+'⊃∀↓ Y≥Q∨π~(∪∪→	λA∧~∀%∃+≠!8A!)∪M$`∩∩$rA[←IJAS\↓iQSf↓EkMM∃`~∀∪)%'(AA)∪'H∩∩∩v↓[CsE∀A[Oe∀AEkM→KefAQ↑AG←5J~∀_w∪β
'$AA%')βλ~∀4U~V
R$aα&ε~βG/,¬Q.↓ C"I_0p	bT≥	OUTSTR↓0∞εN≤Ji=
L
¬↓{QPPL8→∀<*λJ∧dl→a⊂HK4λ&N~XM}9zπaQ@∧P%∀)j⊂-Bh*`∪HJ P,RL@	≠≤8$%m¬+;/;⎇;91β6cWO hP$&*∃~Qα:αI∃≤-+QP@LYzd*β∃APPLzZE≥%$λ¬%∧JH∀∩mJ	DlLeε∩Hh!_4LT	∀_Q!∩∧≤→_t*¬y→D`hαB(∧	u1∀jJH⊂
`Ta`m↔JεA↔nCEl!U⊂(!)U a⊗j∀&"dg
_TFEαe))jλ'*$iQiαEεB ∧EFIN@
A≥Aπ∨	∀Y'¬Y$
∀↓∪
≤@8W!!→5∪≤[!I'!β∧αjε>∩*a2-* ∧f←>8⊗>
≡B∧≤xHPhRλ∧q**Q4C!*⊃0S)→@εEεB())j⊂a_
				↓; Prgtocol Comeand seRver @QCEYJ4∀∩¬≥A'
Ym∃%'(↓→)∪'∃%:
∃9αA:⎇↓2n*∃~Qα:$JN⊗Jhh*:
∧"52nzMα~$z& 5	QPTt4λ%∀ZK9%∃≥D	∧EI(%hh)h2∧M¬K4U∃:@λ	λ3∃∩H,¬¬
NA AO,Xπ∃%'PA∨%M!:~)_

α
JQ2nU∩N@"λ¬r	@d 	N]
NC EC →7)%'(A⊃⊂∩∞E∩t4)h2∧EK4U∃8¬⊂⊃ ¬LLIL¬0∀Q)d4⊃p ⊗⊗βJRST NTISERP~~)_

αα8"e\**5"∧h¬∩*84W#!	Ph∃i→α ,[SETOM W@∪→1!0∀Q)d4∃ssJE⊗pq*IpεP+SβH
)!t~∃≥ε↓	≡@2]~⊗@$βs ⊂⊃'h ≥
λNC DMH
(Ym')∨4A↓>u"B`(β"SHP 	AC,[BRST F@)%'$c:4⊂λ1n"bR*	∧zJεN-!α↑	yDL@H⊃⊃)Hp⊂@⊂⊃ ¬LLILλ
∧~)' ⊗
%"1αC⊗{S >=x∧{{;,≥Yλ⊂→≠zz4`.es

λ; IA@εA&αz&ε
∧∩J,4Ph ∀D→JDT∪αB3)Zβ"dP⊂α,[.BYPE 9 ; 600 ? 600 / 0X
`-∧~ε"AQ M¬Jz%≠Jλ⊃P@L**5"∧h¬∩*84C"AQL¬P$PaP gCE
ORASET8	MOVEI B1=≡~∀%!)/$E(
α∧hP&.VαJ5%∩λεp*8p6Kbi3PjAQKw#!↓4⊃4i	H⊂λ⊗∪ ¬TINS	∩∩lAgK]⊂A'3≥
⊂⊂∀!~D,@⊂s1∧p00dλ⊂ε`≥
λ	JRST N@)%'$~(~∀fA%βεAβe(∩(hRP≤Dβs∩)@≥	MOT¬∩AλY= <hP&BR=⊃F@:λ⊃P@LYzd,Jλ!B*c"B)*Tq⊂∀*,ig⊃ε@

8εA&→α,5y∀~λY@hPβ"QλYα!d)∞α	SKIPA BXεbnot∩∩αv↓`G⎇+P$(HTddα3@≥αP"gk⊃dP!ε↔*@DDNβ co@9ie←X5*~(LRJNQ¬αRfNt 4(1n∩⎇~Iα∩|rRNHhP4)M∧Jε
α$y0≤$yj@hPβ"Q	ztNB*
4r∩D
	∪t
I4qc!↓0p2)@⊂*)'⊂$g∧DB]P14[0y0→ drgmhh∂gh4⊂∩A∃I' A6%'↔∪!∀A)%¬%_
@$KYβ∂π&≠!βC⊗{S >=x∧
≠{|∞1"B"$	TTu∧	U∩4hZA"B!~q1∪iT∃∀PI→Tβ"A⊃5⊃3λ9αb⊂-R`aP+Rd  TRNBIN]
α		JRSTL¬)∪'∃%:~∀%ββ∪≤↓π"xH$%M∧ε&.n}LRε.=
rαG⎇↔"ε∀λ
m≥H*#!↓(∩TJ:λ⊗b)
TSr$λ0r∪i@∧¬α		TTYSET
∀∩%'↔∪!∀Aβπ⊃= ∩∩v↓GCiG Aae←Q←G←X↓YP∨?∧ε0hPα"(	*Tq⊂∪*$ibT∧A∧DTbj'fH ad'T∧@
		TELCMD [IA@εA/∪1_Aπ!≠:
∀$∪∃%'PA≥)∪M% 4HI`~ε=x-\8π2, p∂JAα3@>≤ε0→H0qq`%ppλASβ 4(_8∀L@H⊂	jT)#`DBDX SupprepπfA∂∧}~∧∩↓∃%' ∧¬@14rr*λαP ∪UP@∂β $∩vAGα{77πv!β ?$λL↑≠~/aQ@∧DP∩))`∀↓_
Rε≤*H (αB"*85∪s$
u0λ#PhεE∧Bh∧ELCMD @7%βεA<J21αα:U¬∀x≠PhPα"2J*uλ∪JI4q4KQ ¬∧aPdg⊂&∪βGGUT		∩v↓QC@'α/∩∧m(4∧d|yzU"ε|
FN}dπc!∧P%)∀h∧ @6%')∨4A≥∨	∃) ~∀$∪ ∩⊗d~6⊃αβ9∀~λ¬r)Iλ∪∪hyβj`∀]8εAoJ↓[CrAα∪∃βSF)β?;dπ∩πεL≤6*πM↔"ε≡2εOD⊃P@Hα33j@ ¬I X,[ASCIZ/Bye
∀←t~∀$MαVN	$¬αe9hDm≤qQ HL→jDm≤43¬@ εE∧Be))jλ)jdaRb.FEβE_ Not an kption we hike, reFuse Itλ
(hP&BVα9α¬αAQ L⎇X¬∀jJH⊂
`Tadm↔E$`aP∃dπFD=:~∧∪5≠%∩↓∪βε~(∪!+≤B)αAdr⊗Bx9hPα33j@ dP+SdεT
	PU@'!∀A Y9)>≤@4(~	uα¬¬APPMλZ4DR
¬Dm¬IZ48h!~¬-≤	$¬αdhZDl≤αβ"A~∃0r	$∀∪HZ∀sQ↓Q@∧e)∀h⊂'*∩ibiεBεA"'S*)i:	PUCHJ P,OPTESG
∪π¬∪∀A	I_

&ph(%αU∩NQαXJN.&∧qαRJ∀J0∃Q!⊂J∧**5"∧hI∃≤-!Q HM8ZETjλJ$)3Pβ!!"5⊃)Hq1d`aP∃ec"∃)'!$SαY¬
		JRST NTISERU
	CAIN ACHO
∩A)%'(Al∪⊃%%=∩Aπ!∨
~(∩∪))e'(~(∩∪'↔%!≤A
⊃∨ ~(∩∩A∃I' ⊃αu"&N⊗⊂h($&≤*Rj5∧*ε">H%mβ⊗∂-β&yβ3?≥≠π∨∀hP$&R,b∞ ,D4L4
t|@Uλ⊃(→∪w#!! 2TJ:λ∪U	~q4W!Q@0p)→H⊂	jT)#`FB∧P!eRh&⊂)Uh#`hβE	  JRSTNTISER			; protocol violatkr
	SEDZM S@+A∂β ~(∪)→
≠λA7%βεA/=→(A'U!%∂βt~∀β∃I'(A≥Q∪'$$∩∩fA1←gKd4∀_w/∪1→'$A]≠⊂~R≥⊂4(Q'2∧L_4¬ 93∪jYβc ∀
	∃/%→→'$βP&BV≤B)αAdzBR⊗≤84(_8∀LRλ¬∀I@!$g∧BDYP!~w0y<H:7P (ost
	 BRST [	SKIPE RCBINP		; catc@ Aae←Q←G←X↓YP∨?¬_4(⊃∀∧U∃:@λ	J∩4q*! B"*9r4∪D
p3Uλ(εE∧BP!))U⊂∪∃@1		0⊗A$AI←\≥hAoC9]B
∀$∪'	=~A%π	∪∃ ~(∩∪)1β⊂⊗⊃¬Z&ε
∧"5αR∀rα&:hh $→*%≥α	jDM≤X+PhPβ"Nd	Y⎇⊂_w⊂7`0tign↓oBAYαK ≡+λ⊂→→q:ybH4zεEβE	PUSH P,
∪∨U)')$αα`≤
89∃Byi_∀
∧Iye"⎇QQ LLzhTJ∧α00aQ@∧h*Td 
 P,NE@)=∞ 4PJ6 =hY∩∧∧βsU↓Q@∧h*Td 
 P,NE@)=∞ 4PJB>A¬↓0$!~¬-≤α∩H
¬⊃t∃	Zqc"A~∃0	d∩⊂(⊗'⊃h ∂CH
∪!U'⊃)¬↓2:⊗αJ4dβ"B)*Tp
 L¬)∪'∃$∩(hP4*↑|rRNIPJBVNDQαAIz¬$m8qP@!0p2)@⊂*)'⊂αIN
	 SKIPN @%
&:α↓P@!(λ∩J*uλ∪JI4q4AQ@∧ibU-&P)⊂βBINP
∪)∃→π6 ∧¬@900hλIpπ* TRNBIL¬0∀Q!∀U∃8@λ	@*$ibT∧Aβ≥`OGM @→∨≥_
ε5∧jε&N-⊃α6εM~∃Iαl
&N∃~α2>≡≤Aα2xx4Cλβ"C!	⊃qs'↓,L↓Q@∧idV!$jβDSK<~∀&dz≡ :β↓Q@εE&∪cc fNα	'LATASD
λ	0
	377⊂00 _X@~∀%=αNfLhP4*6JN⊗IPJNJ∞2α6ε&∀z`$¬←∪↔∂↔Lεf*ε≥o∩ε@→=≥↑H≤p∩[8∧ to pf~(∩A¬%M(Aβ%_
0$K[;?;*βS#↔⊗)1β≠|ε& <αz⊂ )tλ
(Lj6@4Tλ"dl→_$`;β"B(`fbP⊂α,['SPYNOW]
∀∩↓∃%'λαα6ε&t`$%@=(
-mh≠8-≥λε⊂ &orge@PASh~(∪'.Mα0∩¬8∧⊗)Yβ		;maybe a`→@⊗+π'α(⊂⊗≠pπgiN'
α	OP@≤A1_∞≡
db6≡∀hP%α**5"∧β02)@&∧D]Y7w∪zλ10∂`)!Kd4PJ6 =h∧r$λK∃tJJ∀UB!↔y;X,-α2P 7p¬SiSαs⊂~πMRε6α;⊂∩CE	SETPRV @∧X~∀%≠⊂≡Z*α∩[5K4d|yh∀j@λε!.B]sr`4 f`∪Yα+;π\QP@!0S∃∧λJh	V⊂α+3
	P@∪≠∃$A∧Vβ	0$↔>&∞vMx$>≥→-nz;p↔βE	MOT¬'%∧⊃-E1D⊃-E$hP&⊗:$*IαIxt
@⊂B"'wx2`. f`∪Yα(4(∀	%∃≥D	TLiA⊂K↑
]Vj@λ≠p∀λ8πel@0~∀&lzP∀2(⊂EFβ"B*85∀∀JD⊂Kα!↔⎇→0→≠⊂7s#λ842P≤90p⊗, so JLπ¬%λαβ←'MDπ>␈-1P@M8ZDl@(⊂	h⊗e`∞		8π]←Nαβ3 >|⎇⊗r8Q!∀l]hT∧%⊗m¬εεlλ¬J⊃0TjJU".l\αz⊂ 0tr to locationdesc@ISai←H~∃≠β%'
dt%∪⊂∩∩⊂↓A2λhP&*Vmα∃↓Adjε&N+_4(~
U≤D$
αddOPJ P,
;OPTMSG RNDMSG SNDMSG MSGLUP SUIQUI ERRDIE SUICID DIEDIE ...LIT SVRRTS ERRTNS ERRHAN ERRINS HSTTAB HSTSIX

SUBTTL Subroutines

; WILL/WONT/DO/DONT option message

OPTMSG:	CAIN EXOPL
	 JRST [	OUTSTR [ASCIZ/ EXOPL*
/]
		POPJ P,]
	OUTCHR [" ]
	CAILE WDOMAX
	 JRST RNDMSG
	MOVE 1,
	OUTSTR @WDOTAB(1)
	OUTSTR [ASCIZ/*
/]
	POPJ P,

RNDMSG:	IDIVI 100		; output the octal for an unknown message
	ADDI "0
	OUTCHR
	IDIVI 10
	ADDI 1,"0
	OUTCHR 1
	ADDI 2,"0
	OUTCHR 2
	OUTSTR [ASCIZ/*
/]
	POPJ P,

; Send a message, b.p. in X

SNDMSG:	TLOA X,440700			; set up b.p.
MSGLUP:	 PUSHJ P,NETOCH
	ILDB X
	JUMPN MSGLUP			; continue until a null hit
	JRST NETSND

; Here to quit on QUIT command.  Check for binary mode and end it first.
SUIQUI:	SKIPN RCBINP			; in binary mode?
	JRST SUICID			; nope, just go away
	TELCMD [IAC DONT TRNBIN]	; yes, get out of it
	MOVE B,[63400,,DPYNAM]		; get display type's name
	MOVE A,TTYLIN			;  to see if this is a real DM
	DPB A,[221000,,B]		; insert tty number in ttyset cmd
	HRROI A,B
	TTYSET A,			; get display type info
	LDB A,[301400,,DPYNAM]		; get first two chars of display type name
	CAIE A,' DM			; skip if in DM class
	JRST SUICID			; go away
	TELCMD [30 35]			; clear modes, turn on roll mode
	JRST SUICID			; go away

; Here to suicide on network errors or idle timeout

ERRDIE:	INTMSK [0]
SUICID:	OUTSTR [ASCIZ/Connection closed.
/]
	SKIPE NODETP
	 JRST DIEDIE			; logout the guy
	MOVE TTYLIN
	TTYJOB
	JUMPE DIEDIE
	MOVE A,TTYLIN
	MOVEI B,7
	PTJOBX A			; clear PTY's input buffer
	MOVEI 2
	MOVEI B,10			; DETACH
	PTJOBX A
	 JRST [	SLEEP ? JRST .-1]
	SLEEP
	PTRD1S A			; slurp up stuff in buffer
	 CAIA
	  JRST .-2
DIEDIE:	RELEAS LOGC,			; close log
	RESET ? EXIT

...LIT:	CONSTANTS

; Wonderful network routines

SVRRTS==-1				; include server routines
ERRTNS==-1				; include error routines
ERRHAN==-1				; include automagic error handling
ERRINS==<JRST ERRDIE>			; error instruction
HSTTAB==-1				; include host table magic
HSTSIX==-1				; and alias name kludge

.INSRT NETWRK[NET,MRC]

END TELSER